home *** CD-ROM | disk | FTP | other *** search
/ Publication 4 / Publication_04_19xx_High-Tech_de_Side_A.d64 / 3-stimmig-gen. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  77 lines
  1. 8 si=54272
  2. 10 dim n$(96),lb(96),hb(96),a1(150),b1(150),a2(150),b2(150),a3(150),b3(150)
  3. 100 print"[147]":forg=0to95:read n$(g),hb(g),lb(g):printn$(g):nextg:n=1
  4. 101 print"[147]";
  5. 102 print""n". 1 . note :"
  6. 103 input" ";a$
  7. 104 ifa$="ende"then200
  8. 105 forg=0to96
  9. 106 ifn$(g)=a$then108
  10. 107 next:print" fehler !":print"[145][145][145][145]":goto103
  11. 108 rem
  12. 109 a1(n)=hb(g):b1(n)=lb(g):print""n". 2 . note :"
  13. 110 input" ";a$
  14. 111 forg=0to96
  15. 112 ifn$(g)=a$then114
  16. 113 next:print" fehler !":print"[145][145][145][145]":goto110
  17. 114 a2(n)=hb(g):b2(n)=lb(g)
  18. 115 print""n". 3 . note :":input" ";a$
  19. 116 forg=0to96
  20. 117 ifn$(g)=a$then119
  21. 118 next:print" fehler !":print"[145][145][145][145]":goto115
  22. 119 rem
  23. 120 a3(n)=hb(g):b3(n)=lb(g)
  24. 121 n=n+1:goto101
  25. 200 pokesi+5,8*16+1:pokesi+6,3*16+3
  26. 201 pokesi+12,5*16+6:pokesi+13,7*16+8
  27. 202 pokesi+19,4*16+6:pokesi+20,8*16+8
  28. 203 pokesi+24,15
  29. 204 forg=1ton
  30. 205 pokesi,b1(g):pokesi+7,b2(g):pokesi+14,b3(g)
  31. 206 pokesi+1,a1(g):pokesi+8,a2(g):pokesi+15,a3(g)
  32. 207 pokesi+4,33:pokesi+11,17:pokesi+18,33
  33. 208 forq=1to200:nextq,g
  34. 209 input" ok ?";a$:ifa$="ja"then101
  35. 210 ifa$="nein"thenend
  36. 211 ifa$="save"then800
  37. 212 print"[145][145]":goto209
  38. 800 open2,8,2,"@:"+z$+".song,s,w"
  39. 801 print#2,n:forg=1ton
  40. 802 print#2,a1(g)
  41. 803 print#2,a2(g)
  42. 804 print#2,a3(g)
  43. 805 print#2,b1(g)
  44. 806 print#2,b2(g)
  45. 807 print#2,b3(g)
  46. 808 nextg:close2:end
  47. 1000 data "c0",1,22,"c#0",1,39,"d0",1,57,"d#0",1,75,"e0",1,95,"f0",1,116
  48. 1001 data "f#0",1,138,"g0",1,161,"g#0",1,186,"a0",1,212,"a#0",1,240,"h0",2,14
  49. 1002 rem
  50. 1003 data "c1",2,45,"c#1",2,78,"d1",2,113,"d#1",2,150,"e1",2,190,"f1",2,231
  51. 1004 data "f#1",3,20,"g1",3,66,"g#1",3,116,"a1",3,169,"a#1",3,224,"h1",4,27
  52. 1005 rem
  53. 1006 data "c2",4,90,"c#2",4,156,"d2",4,226,"d#2",5,45,"e2",5,123,"f2",5,207
  54. 1007 data "f#2",6,39,"g2",6,133,"g#2",6,232,"a2",7,81,"a#2",7,193,"h2",8,55
  55. 1008 rem
  56. 1009 data "c3",8,180,"c#3",9,56,"d3",9,196,"d#3",10,89,"e3",10,247,"f3",11,158
  57. 1010 data "f#3",12,78,"g3",13,10,"g#3",13,208,"a3",14,162,"a#3",15,129,"h3"
  58. 1011 data 16,109
  59. 1012 rem
  60. 1013 data "c4",17,103,"c#4",18,112,"d4",19,137,"d#4",20,178,"e4",21,237,"f4"
  61. 1014 data 23,59,"f#4",24,157,"g4",26,20,"g#4",27,160,"a4",29,69,"a#4",31,3
  62. 1015 data "h4",32,219
  63. 1016 rem
  64. 1017 data "c5",34,207,"c#5",36,225,"d5",39,18,"d#5",41,101,"e5",43,219,"f5"
  65. 1018 data 46,118,"f#5",49,58,"g5",52,39,"g#5",55,65,"a5",58,138,"a#5",62,5
  66. 1019 data "h5",65,181
  67. 1020 rem
  68. 1021 data "c6",69,157,"c#6",73,193,"d6",78,36,"d#6",82,201,"e6",87,182,"f6"
  69. 1022 data 92,237,"f#6",98,115,"g6",104,78,"g#6",110,130,"a6",117,20,"a#6",124
  70. 1023 data 10,"h6",131,105
  71. 1024 rem
  72. 1025 data "c7",139,59,"c#7",147,130,"d7",156,72,"d#7",165,147,"e7",175,107
  73. 1026 data "f7",185,218,"f#7",196,231,"g7",208,156,"g#7",221,4,"a7",234,40,"a#7"
  74. 1027 data 248,20
  75. 1028 rem
  76. 1029 data "pause",0,0
  77.